﻿Imports ADOEntity
Imports System.Data

Partial Class Form_testReport
    Inherits System.Web.UI.Page

    Private strSql As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        strSql = "SELECT     ur.USERRIGHT, ur.USERRIGHTDESC, ur.ROLEGHB, ur.ROLESYS, ur.ROLEDEPT, ur.ROLEZONE, ur.ROLEBRANCH, ur.ROLEUSER, dm.DEPTCODE, " _
& "                      dm.DEPTNAME, pg.PROGRAMCODE, pg.PROGRAMNAME, mr.ISSHOW, mr.MQUERY, mr.MADD, mr.MMODIFY, mr.MDELETE, mr.MPRINT " _
& "FROM         " & System.Configuration.ConfigurationSettings.AppSettings("TableSUSERRIGHT") & " ur LEFT OUTER JOIN " _
& "                      " & System.Configuration.ConfigurationSettings.AppSettings("TableUSERRIGHTDEPT") & " urd ON ur.USERRIGHT = urd.USERRIGHT LEFT OUTER JOIN " _
& "                      " & System.Configuration.ConfigurationSettings.AppSettings("TableSDEPARTMENT") & " dm ON urd.DEPTCODE = dm.DEPTCODE LEFT OUTER JOIN " _
& "                      " & System.Configuration.ConfigurationSettings.AppSettings("TableSMENURIGHT") & " mr ON ur.USERRIGHT = mr.USERRIGHT LEFT OUTER JOIN " _
& "                      " & System.Configuration.ConfigurationSettings.AppSettings("TableSPROGRAM") & " pg ON mr.PROGRAMCODE = pg.PROGRAMCODE " _
& " where mr.ISSHOW = 1 " _
& " order by pg.PROGRAMCODE asc"


        'Dim ds As New dsAdminMaster
        'Dim cls As New clsConnToDbByReport
        'Dim re As XtraReport1 = New XtraReport1
        'cls.rptUserRight(re, strSql, ds)
        'ReportViewer1.Report = re
        

    End Sub


End Class
